home *** CD-ROM | disk | FTP | other *** search
/ PCNet 2004 October / PCNET_CD_2004_10_1.iso / shareware / pspad431inst_en.exe / {app} / Context / Pascal.DEF < prev    next >
Encoding:
Text File  |  2003-08-30  |  1.9 KB  |  137 lines
  1. ; PSPad clip definition file for Object Pascal
  2. ; autor: Borand - from Delphi5
  3. ; last revizion 12.8.2001
  4. ;
  5. [Macro definition]
  6. %OF%=@E Of:,
  7. %FROM%=@E Bounds from:,
  8. %TO%=@E Bounds to:,
  9. %NAME%=@E Name:,
  10. %TNAME%=@E Parent class name:,,TObject,
  11. %COUNTER%=@E Counter name:,,i,
  12. %RESULT%=@C Result type:,,,Integer;String;Boolean,
  13. %PARAMS%=@E Parametres:,
  14. ;
  15. [array |n array declaration (var)]
  16. array[%From%..%To%] of %Of%;
  17. |
  18. [case | case statement (with else)]
  19. case | of
  20.   : ;
  21.   : ;
  22. else ;
  23. end;
  24.  
  25. [classf |n class declaration (all parts)]
  26. %Name% = class(%TName%)
  27. private
  28. |
  29. protected
  30.  
  31. public
  32.  
  33. published
  34.  
  35. end;
  36. ;
  37. [classd |n class declaration (no parts)]
  38. %Name% = class(%TName%)
  39. |
  40. end;
  41. ;
  42. [classc |n class declaration (with Create/Destroy overrides)]
  43. %Name% = class(%TName%)
  44. private
  45. |
  46. protected
  47.  
  48. public
  49.   constructor Create; override;
  50.   destructor Destroy; override;
  51. published
  52.  
  53. end;
  54. ;
  55. [fors |n for (no begin/end)]
  56. for %Cunter% := %From% to %To% do
  57.   º|
  58. [forb |n for statement]
  59. º
  60. for %Cunter% := %From% to %To% do
  61. begin
  62.   º|
  63. end;
  64. º
  65. [function |n function declaration]
  66. function %Name%(%Params%): %Result%;
  67. begin
  68. |
  69. end;
  70. ;
  71. [ifs | if (no begin/end)]
  72. if | then
  73.   º
  74. [ifb | if statement]
  75. if | then begin
  76.   º
  77. end;
  78. ;
  79. [ife | if then (no begin/end) else (no begin/end)]
  80. if | then
  81.   º
  82. else
  83. ;
  84. [ifeb | if then else]
  85. if |
  86. then begin
  87.   º
  88. end
  89. else begin
  90.  
  91. end;
  92. ;
  93. [procedure |n procedure declaration]
  94. procedure %Name%(%Params%);
  95. begin
  96.   |
  97. end;
  98. ;
  99. [trye | try except]
  100. try
  101.   º|
  102. except
  103.  
  104. end;
  105. ;
  106. [tryf | try finally]
  107. try
  108.   º|
  109. finally
  110.  
  111. end;
  112. ;
  113. [trycf |n try finally (with Create/Free)]
  114. %Name% := %TName%.Create;
  115. try
  116.   |
  117. finally
  118.   %Name%.Free;
  119. end;
  120. ;
  121. [whileb | while statement]
  122. while | do begin
  123.   º
  124. end;
  125. ;
  126. [whiles | while (no begin)]
  127. while | do
  128. ;
  129. [withb | with statement]
  130. with | do begin
  131.   º
  132. end;
  133. ;
  134. [withs | with (no begin)]
  135. with | do
  136.   º
  137. ;